home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / TSHADOW.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  53 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   TSHADOW .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16. $endif
  17.  
  18. $INCLUDE "DAS-NB01.INC"
  19. $INCLUDE "DAS-NBT1.INC"
  20. COLOR 7, 0
  21. CLS
  22.  
  23. ? "┌─────────────────────────────────────────────────────────────────────────
  24. ? "│ DrawTShadow ( Row?, Col?, Rows?, Cols?, Shadow?, Sattr? )
  25. ? "├─────────────────────────────────────────────────────────────────────────
  26. ? "│ There are a total of 7 different shadow styles and each can be in any
  27. ? "│ of 4 positions around the box. See the help screen for full details.
  28. ? "│ DrawTShadow will compute the correct position and number of rows and
  29. ? "│ columns to use so send it the same parameters as TBoxDRAW.
  30. ? "└─────────────────────────────────────────────────────────────────────────
  31.                                                     '┌──────────────────
  32.   BLINKoff                                          '│
  33.   R?  =  12 : C?  = 10 : Char? = 176                '│ displays all of
  34.   Rs? =  10 : Cs? = 30 : Sa? = 8                    '│ the shadow styles
  35.   Msg$  = "Shadow Style ##"                         '│
  36.   FOR Sh? = 1 TO 64                                 '│
  37.     TBoxFILL 10, 1, 16, 80, Char?, 16               '│ clear screen area
  38.     IF Sh? < 60 THEN                                '│
  39.       DrawTShadow R?, C?, Rs?, Cs?, Sh?, Sa?        '├ NOTE that the ROW/COL
  40.       TBoxDRAW    R?, C?, Rs?, Cs?, 1, 249          '├ params are the same
  41.     ELSE                                            '│
  42.       TBoxDRAW    R?, C?, Rs?, Cs?,  1,  27         '│
  43.       DrawTShadow R?, C?, Rs?, Cs?, Sh?, 16         '│
  44.     END IF                                          '│
  45.     Tprint R?+1, C?+2, USING$( Msg$, Sh? ), 0       '│
  46.     IF fAnyKey% = 27 THEN EXIT FOR                  '│ await key-press
  47.     IF ( Sh? MOD 10 ) = 4 THEN                      '│
  48.       INCR Sh?, 6                                   '│ jump to next set
  49.       Sa? = 16 : Char? = 32                         '│
  50.     END IF                                          '│
  51.   NEXT                                              '│
  52.   TBoxFILL 10, 1, 16, 80, 32, 7                     '│
  53.   BLINKon                                           '└──────────────────